home *** CD-ROM | disk | FTP | other *** search
/ Rover 25 Presentation / Rover25_Presentation_CD.bin / Tool2.cst / 00011_Script_oval rollover show text < prev    next >
Text File  |  2000-01-31  |  986b  |  54 lines

  1. global gSprite, gWithin 
  2.  
  3. --on prepareFrame me
  4. --  --  if gWithin = 1 then
  5. --  --    hideText
  6. --  --    abort
  7. --  --  else
  8. --  --    set i =  the spriteNum of me
  9. --  if sprite 42 intersects sprite the currentSpriteNum then
  10. --    set gSprite = the currentSpriteNum
  11. --    revealText
  12. --  else
  13. --    hideText
  14. --  end if
  15. --  --end if
  16. --end
  17.  
  18.  
  19.  
  20. on mouseEnter me
  21.   set gWithin = 1
  22.   set gSprite = the spriteNum of me
  23.   set the scale of sprite the currentSpriteNum = 100
  24.   updateStage
  25.   set the visible of sprite (the currentSpriteNum + 1) = 1
  26. end
  27.  
  28.  
  29. on mouseWithin me
  30.   cursor 280
  31.   set gWithin = 1
  32. end
  33.  
  34. on mouseleave me
  35.   cursor -1
  36.   set gWithin = 0
  37.   set the visible of sprite (the currentSpriteNum + 1) = 0
  38.   
  39.   
  40.   set the scale of sprite the currentSpriteNum = 90
  41.   updateStage
  42. end
  43.  
  44. on revealText
  45.   set the visible of sprite (gSprite + 1) = 1
  46.   updateStage
  47. end
  48.  
  49. on hideText
  50.   set the visible of sprite(gSprite + 1) = 0
  51.   updateStage
  52. end
  53.  
  54.